home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / MPW Interfaces & Libraries / PInterfaces / Disks.p < prev    next >
Encoding:
Text File  |  1992-01-29  |  1.8 KB  |  76 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Sunday, September 15, 1991 at 10:19 PM
  4.  Disks.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc.  1985-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Disks;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingDisks}
  22. {$SETC UsingDisks := 1}
  23.  
  24. {$I+}
  25. {$SETC DisksIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingTypes}
  28. {$I $$Shell(PInterfaces)Types.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingOSUtils}
  31. {$I $$Shell(PInterfaces)OSUtils.p}
  32. {$ENDC}
  33. {$SETC UsingIncludes := DisksIncludes}
  34.  
  35. TYPE
  36. DriveKind = (sony,hard20);
  37.  
  38.  
  39. DrvSts = RECORD
  40.  track: INTEGER;            {current track}
  41.  writeProt: SignedByte;        {bit 7 = 1 if volume is locked}
  42.  diskInPlace: SignedByte;    {disk in drive}
  43.  installed: SignedByte;        {drive installed}
  44.  sides: SignedByte;            {-1 for 2-sided, 0 for 1-sided}
  45.  driveQLink: QElemPtr;        {next queue entry}
  46.  driveQVers: INTEGER;        {1 for HD20}
  47.  dQDrive: INTEGER;            {drive number}
  48.  dQRefNum: INTEGER;            {driver reference number}
  49.  dQFSID: INTEGER;            {file system ID}
  50.  CASE DriveKind OF
  51.    sony:
  52.   (twoSideFmt: SignedByte;    {after 1st rd/wrt: 0=1 side, -1=2 side}
  53.   needsFlush: SignedByte;    {-1 for MacPlus drive}
  54.   diskErrs: INTEGER);        {soft error count}
  55.    hard20:
  56.   (driveSize: INTEGER;        {drive block size low word}
  57.   driveS1: INTEGER;            {drive block size high word}
  58.   driveType: INTEGER;        {1 for HD20}
  59.   driveManf: INTEGER;        {1 for Apple Computer, Inc.}
  60.   driveChar: SignedByte;    {230 ($E6) for HD20}
  61.   driveMisc: SignedByte);    {0 -- reserved}
  62.  END;
  63.  
  64.  
  65. FUNCTION DiskEject(drvNum: INTEGER): OSErr;
  66. FUNCTION SetTagBuffer(buffPtr: Ptr): OSErr;
  67. FUNCTION DriveStatus(drvNum: INTEGER;VAR status: DrvSts): OSErr;
  68.  
  69.  
  70. {$ENDC} { UsingDisks }
  71.  
  72. {$IFC NOT UsingIncludes}
  73.  END.
  74. {$ENDC}
  75.  
  76.